********************************************************************************
*** Paper: FINANCIAL PERFORMANCE OF STATE-OWNED ENTERPRISES: DOES POLITICAL IDEOLOGY PLAY A ROLE?
*** JPART
*** Note that some variables are in Portuguese
*** Appendix
********************************************************************************



**************************************
*** Please, first load the dataset ***
**************************************

xtset id ano



****************************************
*** Conventional Panel Data Approach ***
****************************************


* Data Diagnosis

*** Testing for Heteroskedasticity (documentation on Panel Data - Princeton University, p. 50)
xtreg resul_pre_subven c.ideo##non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop ano_fe2-ano_fe5, fe robust
xttest3
************** The test is significant. Thus, there is heteroskedasticity


*** Deciding between fixed or random effects with the Hausman Test

***** using "ideo"
xtreg resul_pre_subven c.ideo##non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop ano_fe2-ano_fe5, fe
estimates store fe_consistent
xtreg resul_pre_subven c.ideo##non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop ano_fe2-ano_fe5, re
estimates store re_efficient
hausman fe_consistent re_efficient, sigmamore
********** not significant, then use random effects
 
***** using "right" (tested without interaction due to the fact that the interaction is dropped in the model with FE)
xtreg resul_pre_subven right non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop ano_fe2-ano_fe5, fe
estimates store fe_consistent
xtreg resul_pre_subven right non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop ano_fe2-ano_fe5, re
estimates store re_efficient
hausman fe_consistent re_efficient, sigmamore
********** not significant, then use random effects



* Table A1:

xtreg resul_pre_subven ideo non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop ano_fe2-ano_fe5, re robust
xtreg resul_pre_subven right non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop ano_fe2-ano_fe5, re robust
xtreg resul_pre_subven c.ideo##non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop ano_fe2-ano_fe5, re robust
xtreg resul_pre_subven right##non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop ano_fe2-ano_fe5, re robust
xtreg resul_pre_subven c.ideo##non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5, re robust
xtreg resul_pre_subven right##non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5, re robust


* Table A2:
xtreg resul_pre_subven c.ideo##non_policy l.resul_pre_subven sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5, re robust
xtreg resul_pre_subven right##non_policy l.resul_pre_subven sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5, re robust
xtreg winsor_dv c.ideo##non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5, re robust
xtreg winsor_dv right##non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5, re robust
xtreg resul_pre_subven c.ideo##non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5 if (PL > 0 & liquida == 0), re robust
xtreg resul_pre_subven right##non_policy sem bolsa PL nondep liquida aud qde_empregados primário_rcl perc_rec_prop_UF idh pop setor_fe2-setor_fe18 ano_fe2-ano_fe5 if (PL > 0 & liquida == 0), re robust

*******************************
*** First stages & controls ***
*******************************

* Table A3 (First Stages):


set seed 659535

ivregress 2sls resul_pre_subven setor_fe2-setor_fe18 (ideo = lnwealth perc_rec_prop_UF idh pop i.ano) if (resul_pre_subven != . & PL != . & sem != . & aud != . & qde_empregados != .), first
estat overid
ivregress 2sls roe_new setor_fe2-setor_fe18 (ideo = lnwealth perc_rec_prop_UF idh pop i.ano) if (resul_pre_subven != . & PL != . & sem != . & aud != . & qde_empregados != .), first
estat overid
ivregress 2sls rocc_new setor_fe2-setor_fe18  (ideo = lnwealth perc_rec_prop_UF idh pop i.ano) if (resul_pre_subven != . & PL != . & sem != . & aud != . & qde_empregados != .), first
estat overid


* Results from LIML are the same as 2SLS:

ivregress liml resul_pre_subven setor_fe2-setor_fe18 (ideo = lnwealth perc_rec_prop_UF idh pop i.ano) if (resul_pre_subven != . & PL != . & sem != . & aud != . & qde_empregados != .), first
estat overid
ivregress liml roe_new setor_fe2-setor_fe18 (ideo = lnwealth perc_rec_prop_UF idh pop i.ano) if (resul_pre_subven != . & PL != . & sem != . & aud != . & qde_empregados != .), first
estat overid
ivregress liml rocc_new setor_fe2-setor_fe18  (ideo = lnwealth perc_rec_prop_UF idh pop i.ano) if (resul_pre_subven != . & PL != . & sem != . & aud != . & qde_empregados != .), first
estat overid


